BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/Ap-Az/AstroStack1.1.cpt/AstroStack 1.1/card_7451.txt

Text File | 1988-04-24 | 8.8 KB | 440 lines

-- card: 7451 from stack: in.1
-- bmap block id: 6988
-- flags: 0000
-- background id: 2632
-- name:
----- HyperTalk script -----
on openCard
  show card button id 6
  hide card button id 21
  hide card field id 15
  hide card field id 17
  hide card field id 16
  hide card button ID 7
  hide card field id 9
  hide card field id 22
end openCard




-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=35 top=157 right=174 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=211 top=158 right=175 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=36 top=212 right=229 bottom=207
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 4 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=214 top=212 right=229 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=247 top=212 right=229 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=260 top=254 right=276 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Speller
----- HyperTalk script -----
on mouseUp
  show card field ID 9
  show card button ID 7
  hide card button ID 6
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=260 top=254 right=276 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Speller
----- HyperTalk script -----
on mouseUp
  hide card field ID 9
  show card button ID 6
  hide card button ID 7
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=199 top=309 right=331 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue
----- HyperTalk script -----
on mouseUp
  global midA,midB,AscendA,AscendB,AscendC,latitude,siderealBirth
  if card field Id 1 is not in card field id 9
  then
  beep
  answer "Please check the spelling of the Mid-Heaven"
  exit mouseUp
end if
if card field id 1 is not in card field id 22
then
beep
answer "Please delete “¶” at the end of Mid-Heaven"
exit mouseUp
end if
if card field id 3 is not in card field id 9
then
beep
answer "Please check the spelling of the Ascendant"
exit mouseUp
end if
if card field id 3 is not in card field id 22
then
beep
answer "Please delete “¶” at the end of Ascendant"
exit mouseUP
end if

put card field ID 1 into MidA
put card field ID 2 into MidB
put card field Id 3 into AscendA
put card field id 4 into AscendB
put card field id 5 into AscendC
put 0 into x
repeat 6
  if x = 200 then exit repeat
  if AscendA is line (x +1) of card field id 9 and 1 + x < 7 then
    put line (x+7) of card field ID 9 into AscendA
    put 200 into x
  else add 1 to x
end repeat
repeat 6
  if x=200 then exit repeat
  if AscendA is line (x +1) of card field id 9 then
    put line (x-5) of card field ID 9 into AscendA
    put 200 into x
    exit repeat
  else add 1 to x
end repeat
put 0 into x
repeat 6
  if x = 200 then exit repeat
  if midA is line (x +1) of card field id 9 and 1 + x < 7 then
    put line (x+7) of card field ID 9 into midA
  else add 1 to x
end repeat
repeat 6
  if x=200 then exit repeat
  if midA is line (x +1) of card field id 9 then
    put line (x-5) of card field ID 9 into midA
    put 200 into x
    exit repeat
  else add 1 to x
end repeat
put midA && midB &"°." into card field id 16
put ascendA && ascendB &"° "& ascendC &"'." into card field id 17
show card field id 15
show card field id 16
show card field id 17
show card button id 21
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=367 top=248 right=331 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=301 top=72 right=90 bottom=325
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=332 top=72 right=89 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=365 top=72 right=89 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=346 top=98 right=117 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=376 top=99 right=117 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 15 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=19 top=143 right=333 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 16 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=220 top=271 right=290 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 17 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=209 top=239 right=259 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 18 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=352 top=255 right=274 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 21 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=199 top=314 right=336 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 22 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=395 top=60 right=105 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part contents for card part 9
----- text -----
Aries
Taurus
Gemini
Cancer
Leo
Virgo
Libra
Scorpio
Sagittarius
Capricorn
Aquarius
Pisces

-- part contents for card part 15
----- text -----

                                   IMPORTANT!

Because the birthplace is in the Southern Hemisphere, ASTROSTACK             has made an adjustment to the Ascendant and to the Mid-Heaven.

  The corrected Ascendant is

  The corrected Mid-Heaven is

-- part contents for card part 16
----- text -----
 °.

-- part contents for card part 17
----- text -----
 ° '.

-- part contents for card part 22
----- text -----
Aries, X
Taurus, X
Gemini, X
Cancer, X
Leo, X
Virgo, X
Libra, X
Scorpio, X
Sagittarius, X
Capricorn, X
Aquarius, X
Pisces, X